Nuprl Lemma : qmul_assoc
11,40
postcript
pdf
r
,
s
,
t
:rationals. ((
r
*
s
) *
t
) = (
r
* (
s
*
t
))
rationals
latex
Definitions
ff
,
tt
,
qinv(
r
)
,
if
b
then
t
else
f
fi
,
qdiv(
r
;
s
)
,
P
Q
,
t
T
,
P
Q
,
qeq(
r
;
s
)
,
P
Q
,
r
*
s
,
x
:
A
.
B
(
x
)
,
False
,
nequal(
T
;
a
;
b
)
,
A
,
A
c
B
,
int_nzero
,
x
:
A
.
B
(
x
)
,
P
Q
,
prop{i:l}
Lemmas
rationals
wf
,
qeq
wf2
,
assert
wf
,
assert
of
eq
int
,
int
nzero
properties
,
q-elim
,
qmul
wf
,
assert-qeq
origin